home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b3.d64 / baby care.c (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  3KB  |  79 lines
  1. 100 POKE53272,23:POKE53280,1:POKE53281,1:GOSUB 830
  2. 110 B$="                                       "
  3. 120 V$=""
  4. 130 PW=.05:J=1
  5. 140 PRINT"[147][212][200][197][160][207][194][202][197][195][212][160][207][198][160][212][200][197][160][199][193][205][197][160][201][211][160][212][207][160][205][193][216][201][205][201][218][197][160][160][160][212][215][207][160][198][193][195][212][207][210][211]: 1. [217][207][213][210][160][158][211][193][206][201][212][217][144]"
  6. 150 PRINT"             2.[160][217][207][213][210] [158][212][201][205][197] [193][214][193][201][204][193][194][204][197][144]"
  7. 160 PRINT"[215][200][201][204][197][160][195][193][210][201][206][199][160][198][207][210][160][194][193][194][217].":PRINT
  8. 170 PRINT"[201][206][160][207][210][196][197][210][160][212][207] [196][207][160][212][200][201][211][160][217][207][213][160][193][206][196][160][194][193][194][217][160][205][213][211][212]  [160][203][197][197][208][160][200][193][208][208][217].":PRINT
  9. 180 PRINT:PRINT"[217][207][213] [215][201][206][160][215][200][197][206][160][194][207][212][200][160][198][193][195][212][207][210][211][160][210][197][193][195][200][160]300 ([212][200][197][194][193][210][160][215][201][204][204][160][211][212][210][197][212][195][200][160]";
  10. 190 PRINT"[193][195][210][207][211][211][160][212][200][197][160][211][195][210][197][197][206]).":PRINT
  11. 200 PRINT"[217][207][213][160][204][207][211][197][160][215][200][197][206][160][197][201][212][200][197][210] [217][207][213][210][160][158][211][193][206][201][212][217][144] [207][210][160][217][207][213][210][158][212][201][205][197] [193][214][193][201][204][193][194][204][197][144] [196][201][205][201][206][201][211][200]";
  12. 210 PRINT"[160][212][207][160][218][197][210][207].  ([212][200][197] [160][194][193][210][160][199][210][193][208][200][160][196][201][211][193][208][208][197][193][210][211].)":PRINT
  13. 220 PRINT"[200]IT ANY KEY TO CONTINUE"
  14. 230 GETA$:IFA$=""GOTO230
  15. 240 PRINT"[147][201][198] [194][193][194][217][160][199][197][212][211][160][215][197][212][160][207][210][160][200][213][206][199][210][217][160][217][207][213][210] [158][211][193][206][201][212][217][144]  [215][201][204][204] [196][197][195][210][197][193][211][197].":PRINT
  16. 250 PRINT"[200][201][212] [196] [212][207][160][196][201][193][208][197][210][160][194][193][194][217].                   [200][201][212][160][198] [212][207][160][198][197][197][196][160][194][193][194][217]."
  17. 260 PRINT"[200][201][212] [206] [212][207][160][212][193][203][197][160][193][160][206][193][208][160]([210][197][211][212][207][210][201][206][199][160][158][211][193][206][201][212][217][144])."
  18. 270 PRINT"[200][201][212][160][211] [212][207][160][211][212][207][208][160][193][206][217][160][193][195][212][201][214][201][212][217] [194][197][198][207][210][197][160][217][207][213][146]       [194][197][199][201][206][160][193][160][206][197][215][160][193][195][212][201][214][201][212][217].[146]
  19. 280 [153]:[153]"STR$RIGHT$ATN(null)VAL(null)RIGHT$(null)CHR$, ASCVALVALSTR$RIGHT$(null)CHR$CLOSE(null)(null)CLOSE(null)ATN(null)(null)RIGHT$(null)CHR$CLOSESTR$VALLEN(null)VALATN(null)VAL(null) (null)(null)(null)(null) SYS(null)RIGHT$(null)VAL ATN(null)ATNRIGHT$(null)ATNPEEK(null)VALSTOP"
  20. 290 [153]: [153]"(null)(null) RIGHT$(null)LEN(null)VALATN(null)VAL SYS(null)RIGHT$(null)VALCLOSEATN(null)ATNRIGHT$(null)ATNPEEK(null)VALSTOP, STR$(null)CLOSE(null)(null)(null)LEFT$RIGHT$(null)CHR$"
  21. 300 [153]:[153]: [153]"(null)RESS ANY KEY TO CONTINUEWAIT"
  22. 310 [161]A$:[139]A$[178]""[137]310
  23. 320 A$[178]"S":[153]"LOAD   (null)Y     PEEKABY      PEEKABY    (null)Y TIME
  24. 330 PRINT" [158][211]ANITY[144]   [215]ET      [200]UNGRY   [158][193]VAILABLE[144]"
  25. 340 BH=0:S=301:BW=0:TA=96
  26. 350 IFRND(1)<.03THENS=S-20:PRINT"[194]ABY JUST SPILLED FOOD ON FLOOR[144]":GOTO380
  27. 360 IF RND(1)<PWTHENBW=BW+40:PRINT"[194]ABY HAS JUST WET AGAIN[144]":GOTO380
  28. 370 PRINT"                                 "
  29. 380 BH=BH+2:TA=TA+4:S=S-.05*BH-.03*BW
  30. 390 IFA$="N"THENBH=BH+2:S=S+20:TA=TA-8
  31. 400 IFA$="D"THENBW=BW-10:BH=BH+2:S=S-3:TA=TA-5
  32. 410 IFA$="F"THENBH=BH-16:S=S-3:TA=TA-5
  33. 420 FORI=1TO2:GETO$
  34. 430 IFO$="S"THENA$="S":PRINT"                          "
  35. 440 IFO$=""ORA$<>"S"GOTO480
  36. 450 IFO$="N"THENA$="N":PRINT"[158][217]OU ARE NOW NAPPING  [144]"
  37. 460 IFO$="D"THENA$="D":PRINT"[217]OU ARE NOW DIAPERING[144]"
  38. 470 IFO$="F"THENA$="F":PRINT"[217]OU ARE NOW FEEDING[144]"
  39. 480 NEXTI
  40. 490 IFBW<0THENBW=0
  41. 500 IFBH<0THENBH=0
  42. 510 IFS>319THENS=319
  43. 520 IFTA>319THENTA=319
  44. 530 PRINT"                                  "
  45. 540 PRINT"[145]";TAB(2);INT(S);TAB(11);BW;TAB(19);BH;TAB(30);TA
  46. 550 PRINTLEFT$(V$,7);" [158][211]ANITY[144]":A=S:GOSUB710
  47. 560 PRINTLEFT$(V$,11);" [215]ETNESS[144]":A=BW:GOSUB710
  48. 570 PRINTLEFT$(V$,15);" [200]UNGER[144]":A=BH:GOSUB710
  49. 580 PRINTLEFT$(V$,19);" [158][212]IME AVAILABLE[144]":A=TA:GOSUB710
  50. 590 IFJ>1GOTO620
  51. 600 PRINT"[212]YPE ANY KEY TO BEGIN"
  52. 610 GETC$:IFC$=""GOTO610
  53. 620 IFS<0THENPRINT"[217]OU ARE NOW INSANE[144] AND GAME IS OVER":GOTO670
  54. 630 IFTA>300ANDS>300THENPRINT"[217]OU HAVE WON THE '[205]OTHER OF 64'[144] AWARD":GOTO660
  55. 640 IFTA<0THENPRINT"[217]OU'VE USED UP YOUR YOUR TIME, TOO BAD":GOTO670
  56. 650 J=J+1:GOTO350
  57. 660 PRINT"[206]EXT TIME YOUR  BABY WILL BE SLIGHTLY    WETTER":PW=PW*1.1: GOTO680
  58. 670 PRINT"[206]EXT TIME YOUR BABY WILL BE SLIGHTLY     LESS WET.":PW=PW*.9
  59. 680 PRINT"[208]RESS ANY KEY TO START OVER"
  60. 690 GETC$:IFC$=""GOTO690
  61. 700 J=J+1:GOTO320
  62. 710 AI=INT(A/8):AR=INT(A-AI*8)
  63. 720 IFAI<0THENPRINT"*********************":POKE198,0:RETURN
  64. 730 IFAI>0THENPRINTLEFT$(B$,AI+1);"[146]";
  65. 740 IFAR=1THENPRINT"[165]";
  66. 750 IFAR=2THENPRINT"[180]";
  67. 760 IFAR=3THENPRINT"[181]";
  68. 770 IFAR=4THENPRINT"[161]";
  69. 780 IFAR=5THENPRINT"[182][146]";
  70. 790 IFAR=6THENPRINT"[170][146]";
  71. 800 IFAR=7THENPRINT"[167][146]";
  72. 810 PRINT"            "
  73. 820 RETURN
  74. 830 PRINT"[144][147][194][193][194][217]
  75. 840 [153]"BY (null)ALLY AND (null)TAN (null)LEIN
  76. 845 PRINT"64 MODS BY: [215][201][205] 3/30/82
  77. 850 [129] I[178]1 [164] 1600:[130] I
  78. 860 [142]
  79.